home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 January / 1993-01.d64 / directory aid (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  3KB  |  87 lines
  1. 0 clr
  2. 5 rem copyright 1993 - compute publications intl ltd - all rights reserved
  3. 10 poke 53280,0
  4. 20 poke 53281,0
  5. 30 poke 646,5
  6. 100 tr=18:se=1
  7. 110 print"[147][213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]";
  8. 115 print"[221]    ondrej blazek's directory aid     [221]";
  9. 117 print"[202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]"
  10. 120 print"  trk  sec      filename        status"
  11. 150 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  12. 160 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  13. 180 print"h...hide file (not in directory)
  14. 185 [153]"l...lock file (scratch proof)"
  15. 187 [153]"s...splat  file (unusable format)"
  16. 188 [153]"n...normal file (return to normal)"
  17. 199 [153]""
  18. 300 v$[178]""
  19. 330 [159] 15,8,15
  20. 340 [159] 5,8,5,"#"
  21. 350 [152]15,"u1:"5;0;tr;se
  22. 355 [132]15,e,e$,et,es
  23. 360 b$[178]"":[161]#5,x$:[139] x$[178]"" [167] x$[178][199](0)
  24. 365 [129]l[178]1[164]255
  25. 380 [161]#5,a$
  26. 390 [139] a$[179][177]""[167] v$[178]v$[170]a$
  27. 395 [139] a$[178]""[167] v$[178]v$[170][199](0)
  28. 400 [130]:na[178]0
  29. 410 [129]t[178](3[171]1) [164] (255[171]1)[169] 32
  30. 415 na[178]na[170]1
  31. 420 c(na)[178][198]([202](v$,t,1)):t(na)[178][198]([202](v$,t[170]1,1)):s(na)[178][198]([202](v$,t[170]2,1))
  32. 425 f$(na)[178][202](v$,t[170]3,16)
  33. 427 c(x)[178](c(x)[175]3)[170](c(x)[175]4)
  34. 430 [130]
  35. 440 [129]t[178]1 [164] 8:[139] t(t)[178]0 [175] s(t)[178]0 [167] 450
  36. 441 [153] "  " t(t):[153]"on"s(t)
  37. 442 [153]"on"[163]12)""[199](34);:[151]646,5:[153]f$(t);:[151]646,2:[153][199](34)
  38. 443 [153]"on"[163]32);
  39. 445 [141] 1000:[153]""c$
  40. 450 [130]:[153]
  41. 460 [160] 5:[160] 15:[137] 5005
  42. 1000 [139] c(t)[178]0 [167] c$[178]"hidden":[142]
  43. 1010 [139] c(t)[179]128 [167] c$[178]"splat":[142]
  44. 1020 [139] c(t)[179]135 [167] c$[178]"normal":[142]
  45. 1030 [139] c(t)[177]191 [167] c$[178]"locked":[142]
  46. 1040 c$[178]"???":[142]
  47. 5005 [153]:[159] 15,8,15
  48. 5010 [159] 5,8,5,"#"
  49. 5020 [129] a[178]1 [164] 255
  50. 5025 [139] a[178]2 [176] (a[171]2)[173]32[178][181]((a[171]2)[173]32)[167] [141] 5100:[137] 5050
  51. 5030 [152]5,[202](v$,a,1);
  52. 5050 [130]
  53. 5055 [152]5,x$;
  54. 5060 [152]15,"u2:";5;0;tr;se
  55. 5070 [160] 5:[160] 15
  56. 5080 se[178][198]([202](v$,1,1)):[139] se[177]20 [167] [153]"load";:[137] 5500
  57. 5090 [137] 110
  58. 5100 x[178][181](a[173]32)[170]1
  59. 5107 c(x)[178](c(x)[175]3)[170](c(x)[175]4)
  60. 5109 [139] t(x)[178]0 [175] s(x)[178]0 [167] a$[178]"h":[137] 5141
  61. 5110 [153]"";[199](34)"                "[199](34)
  62. 5120 [153]""f$(x);"(h/n/l/s)?"
  63. 5140 [161] a$:[139] a$[178]"" [167] 5140
  64. 5141 [139] t(x)[177]0 [167] [153]"on                                     ":[153]"on";
  65. 5150 [139] a$[178]"h" [167] q$[178][199](0)
  66. 5155 [139] a$[179][177]"h" [175] c(x)[178]0 [167] [141] 5300
  67. 5157 [139] a$[179][177]"h" [167] q$[178][199](c(x)[170]128)
  68. 5160 [139] a$[178]"l" [167] c(x)[178]c(x)[170]192:q$[178][199](c(x))
  69. 5170 [139] a$[178]"s" [167] c(x)[178]c(x)[170]32:q$[178][199](c(x))
  70. 5180 [152]5,q$;
  71. 5190 [142]
  72. 5300 [153]"1...seq 2...prg 3...rel 4...usr"
  73. 5310 [161] a$:[139] [197](a$)[179]1 [176] [197](a$)[177]4 [167] 5310
  74. 5320 c(x)[178][197](a$)
  75. 5330 [153]"on                                      ":[153]"on";
  76. 5340 [142]
  77. 5500 [153]"load";:[141] 9000
  78. 5505 [139] e [167] [153]"loaddisk error:"e;e$;t;s:[153]""
  79. 5507 [153]"warning:"
  80. 5510 [153]"if any files are hidden, do not use"
  81. 5520 [153]"the disk validate command, or add"
  82. 5530 [153]"any other files to the disk."
  83. 5540 [153]"to add files to this disk, unhide"
  84. 5550 [153]"all files before saving."
  85. 5560 [153]"?files altered";:[128]
  86. 9000 [159] 15,8,15:[132]15,e,e$,t,s:[160] 15:[142]
  87.